home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS073.dsk / ART DIVERGING OCTAGONS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  658b  |  29 lines
  1. 1  FOR J = 768 TO 782: READ I: POKE J,I: NEXT : DATA   3,0,8,0,11,0,13,0,36,36,0,128,0,16,0: POKE 232,0: POKE 233,3
  2. 10  HGR 
  3. 20  POKE 49234,0
  4. 21 :
  5. 25  HCOLOR= 4: HPLOT 0,0: CALL 62454
  6. 27  HCOLOR= 0
  7. 28  FOR Z = 0 TO 95: HPLOT 140,Z TO 279,Z: NEXT 
  8. 29  FOR Z = 96 TO 191: HPLOT 0,Z TO 139,Z: NEXT 
  9. 30 X = 139:Y = 95
  10. 31 :
  11. 35 T = 1
  12. 40  HPLOT 139,95
  13. 50  ROT= 16: GOSUB 200: GOSUB 1000
  14. 55  HPLOT 139,95
  15. 60  ROT= 48: GOSUB 200: GOSUB 1000
  16. 70 T = T +1: GOTO 40
  17. 199 :
  18. 200  FOR I = 1 TO T: DRAW 2: NEXT : RETURN 
  19. 997 :
  20. 998  TEXT : END 
  21. 999 :
  22. 1000  FOR N = 0 TO 63
  23. 1050  FOR J = 1 TO 64
  24. 1060  SCALE= 1
  25. 1070  ROT= J +N
  26. 1080  XDRAW 1
  27. 1090  NEXT 
  28. 1100  NEXT 
  29. 1110  RETURN